The attached animated gif was created just for fun and was inspired by
Simon's "Simple White Sphere"
It has only eight cyclical frames.  Since the code is REALLY short, I've
decided to just include it here:

camera { location <0,0,-40> direction <0, 0, .89> up <0, 1, 0>
    right  x*image_width/image_height look_at <0,0,0>}

light_source{<-3,9,-30>color.5}light_source {< 3,-9, -30>color .5}

#declare PA=.0003*clock; #while (PA<pi*9)
   sphere{<0,0,0>,.15
   texture{pigment{color rgb<
      .2+.8*abs(cos(PA*24)),
      .2+.8*abs(sin(PA*18)),
      .3+.5*abs(sin(PA*36+pi/3))+.5*abs(cos(PA*36-pi/3))>}
      finish{ambient .3 diffuse .55 reflection .25
      phong .9 phong_size 20} scale 1/6 }
   translate <10*sin(PA*12),10*sin(PA*11.999),10*sin(PA*12.001)>
   rotate<360*sin(PA*18),360*sin(PA*35.99975),360*cos(PA*.02)> }
#declare PA=PA+.0003; #end

Regards,
Mike C.

Post a reply to this message

Attachments:
Download 'comcolsph.gif' (581 KB)

Preview of image 'comcolsph.gif'